From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 24 Dec 2003 02:07:48 +0000 (+0000)
Subject: (ffap-read-file-or-url): Eliminate reliance of the call to
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24808
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4bbac80083a71938ce4443a1d1ab14f44a99b571;p=emacs.git

(ffap-read-file-or-url): Eliminate reliance of the call to
`completing-read' on a recently fixed bug.
---

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 668700a5c1f..b249ce8daa0 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1216,7 +1216,7 @@ which may actually result in an url rather than a filename."
 	     'ffap-read-file-or-url-internal
 	     dir
 	     nil
-	     (if dir (cons guess (length dir)) guess)
+	     (if dir (cons guess (1+ (length dir))) guess)
 	     (list 'file-name-history))))
     ;; Do file substitution like (interactive "F"), suggested by MCOOK.
     (or (ffap-url-p guess) (setq guess (substitute-in-file-name guess)))